Sub muestra_gosub()
    Dim a As Integer
    Dim s As String
    s = "Prueba "
    a = 5
10:
    Debug.Print a
    a = a - 1
    If a = 3 Then GoSub prueba
    If a > 0 Then GoTo 10
    Exit Sub
prueba:
    Debug.Print s & a
    Return
End Sub
